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MM AAAAAA RRRRRRRR 


TTTTTTTTI1 PPPPPPPP AAAAAA MM 

TTTTTTTTTT PPPPPPPP AAAAAA MM MM AAAAAA RRRRRRRR 
TT PP PP AA AA MMMM MMMM AA AA RR RR Y 
TT PP PP AA MMMM MMMM AA AA RR RR 
TT PP PP AA AA MM MM AA AA RR RR 
TT PP PP AA AA MM Ab AA RR RR 
TT PPPPPPPP AA AA MM MM AA AA RRRRRRRR 
TT PPPPPPPP AA AA MM MM AA AA RRRRRRRR 
TT PP AAAAAAAAAA $MM MM AAAAAAAAAA RR RR 
TT PP AAAAAAAAAA $MM MM AAAAAAAAAA RR RR 
TT PP AA AA MM MM AA AA RR RR cece 
TT PP AA AA MM MM AA AA RR RR eeee 
TT PP AA AA MM MM AA AA RR RR cove 
TT PP AA AA MM MM AA AA RR RR cove 
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«NLIST 
-TITLE TPAMAC = MACROS TO GENERATE STATE AND KEYWORD TABLES FOR TPARSE 


: 
; Version: *v04-000' 
MeAARRAABAABAAAALALALALALLASLALAELALELALALEASL AAAS LEAA SESE SEAEAEEEASASELLELSEL ELLE ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** 
** ® 
** ® 
** & 
** ® 
i's THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
$s INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR ANY. OT HER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. ‘ 
** ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:* CORPORATION. . 
*@ & 
** * 
-* ® 
** ® 
:¢ ® 
* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARA RASAALALAAAASAALELALASALALAALALALAAL ELAS ASS SAL SARA ARAL ASAA AAAS ASA ALES 


ANDREW C. GOLDSTEIN 9Q=-JUN-78 13:43 


MODIFIED BY: 

v03-003 MCNO187 Maria del C. Nasr 09-Aug-1984 
Since $TRAN is a nested macro, the argument MASK which 
can be radix argument, needs to be enclosed by delimiters. 

v03-002 ACG0392 Andrew C. Goldstein, 19-Jan-1984 21:58 
Add filespec token type 

v03-001 ACG0345 Andrew C. Goldstein, 1-Aug-1983 14:20 
Add PSECT erenmnan to SINIT STATE, add UIC and IDENT types 

0010 mTROO01 Michael T. Rhodes, 24-Nov-1981 + 15 


Ronove angle brackets from .IDN tests of the LABEL argument to 
TPAS wena s ane TPAS_FAIL (which would not check both upper and lower 
case text). 


0009 ACG0048 Andrew C. Goldstein, 20-Jun-1979 14:20 
Change PSECT attributes to EXE 
0008 ACG0043 Andrew C. Goldstein, 23-May-1979 21:47 


Change PSECTs to PIC 
0007 ACcG0032 Andrew C. Goldstein, 27-Mar-1979 13:12 


Be Se Se Be Se Se Be Oe Ge Se Be Se Se Se Be Se Be Se Se Se Se FH Se Se Ge Ge Se Ge Os Se Se Se Ge Se Se Se Se Se Fe Se Se Se Se Sete Se Sse Ge Fe te 


c 
pm 
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- 


Circumvent assembler string truncation in IRPC 


: 0006 ACG0024 Andrew C. Goldstein, 27-Feb-1979 16:52 a 
: Fix PSECTs for new RTL standards . 
lee 

; INITIALIZE TABLE GENERATION = CALL ONCE AT START OF EACH 

: FINITE STATE MACHINE DESCRIPTION. USER MUST SUPPLY LABELS 

; FOR THE STATE AND KEYWORD TABLES. 


-MACRO SINIT_STATE STTBL,KEYTBL,PSECT_ARG 
IF 8 PSECT_ARG 
-MACRO TPASPSECT 5 TATE 
-PSECT LIB SSSTATES. SHR,PIC,NOWRT,EXE,BYTE 
* ENDM rbAgesect STATE 
-MACRO TPASPSECT KEYO 
-PSECT IGSKEYOS. SHR. PIC,NOWRT,EXE,WORD 
.ENDM TPASPSEL EYO 
-MACRO TPASP PSECT “KEY Y1 


Bete Se Pe Se Ge Oe Se Se Se Se Se Se Se Se Se ee Se Se Se Se Se ee 


.PSECT IBSKEY1$,SHR,PIC,NOWRT,EXE,WORD 
.ENDM rbiesk ECT_KEY1 - 
J 1FF 


-MACRO TPASPSECT_STATE 

-PSECT PSECT_ARG* STATE, SHR,PIC,NOWRT,EXE, BYTE 
-ENDM TPASPSECT_STATE 

-MACRO TPASPSECT-KEYO 

-PSECT PSECT ans" KEYO,SHR,PIC,NOWRT,EXE,WORD 
-ENDM TPASPSECT_REYO 

-MACRO TPASPSECT= <b Y1 

-PSECT PSECT ARG KEYI, SHR, PIC,NOWRT,EXE,WORD 
-ENDM TPASPSECT_REY1 


. SAVE 
TPASPSECT_STATE 
STTBL:: 


TPASPSECT_KEYO 
KEYTBL:: 
SSKEYTAB=. 
TPASPSECT_KEY1 
SSSKEY = -1 
SSSFLG = -1 
SSSKFG 
| 
| 
j 


= -1 
TPAS EXIT = -1 
TPAS_ FAIL se 
TPAS_MAXKEY = 0 
TPAS-KEYWORD = 256 
TPAS_ FILESPEC = 49 
TPAS_UIC = 491 


TPAMAR .MAR; 1 


-ENDM 


TPAS_IDENT = $36 
TPAS_ANY = 49 
TPAS-ALPHA = 494 
TPAS_DIGIT = 495 
TPAS_STRING = 496 
TPAS_SYMBOL = 49 
TPAS_BLA = 498 
TPAS_DECIMAL = 499 
TPAS_OCTAL = 500 
TPAS HEX = 501 
TPAS-LAMBDA = O¢ 
TPAS EOS = 30 
TPA$~SUBXPR = 504 
RESTORE 

SINIT_STATE 


; DECLARE A STATE 


-MACRO 


LABEL: 


-ENDM 


SSTATE LABEL 

. SAV 
TPASPSECT_STATE 
SSSFLG = SSSFLG!4 
TPASMTRAN 


IF NB LABEL 
-ENDC 

IF EQ SSSKFG 
TPASPSECT_KEY1 

-BYTE 255 


SSSFLG = -1 
SSSKFG = -1 


» RESTORE 
SSTATE 


; SPECIFY A STATE TRANSITION 


-MACRO 


STRAN TYPE ,LABEL ACTION, MASK, ADDR, PARAM 
TPASPSECT_STATE 

TPASMTRAN 

IF NB ACTIO 

S$SFLG = $SSFLG!128 

-MACRO $S$SACT 


- LONG C 
-ENDM = $$SACT 
- ENDC 
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IF NB <MASK> 
os { ahaa tliat 
—— <MASK> ; MASK ADDRESS NOT PRESENT 
-MACRO $S$SBIT 
. LON <MASK> 
-ENDM $$$BIT 
~ENDC 
IF NB ADDR 
SSSFLG = SSSFLG!64 
-MACRO $$S$ADR 
. LON ADDR-.=-4 
-ENDM $$$ADR 
~ENDC 
If NB PARAM 
SSSFLG = SSSFLG!256!2 
-MACRO $SSPRM 
-LONG PARAM 
-ENDM $S$SPRM 
-ENDC 
IF NB LABEL 
SSSFLG = SSSFLG!16 
IF 1DN LABEL, TPAS_EXIT 
-MACRO $S$SSTA 
-WORD LABEL 
43% SSSSTA 
If IDN LABEL, TPAS_FAIL 
-MACRO $SSSTA 
-WORD LABEL 
an SSSSTA 
-MACRO S$S$SSTA 
-WORD LABEL-.-2 
-ENDM $S$SSTA 
-ENDC 
~ENDC 
~ENDC 
SSSMOD = 0 
-IRPC $$$X,<TYPE> 
IF IDN <$$$X>,<'"> 
$b = 
-ENDC 
If 1DN <$$$X>,<!> 
S$SSMOD = 2 
~ENDC 
MEXIT 
-ENDR 
IF EQ $SSMOD-1 
-NCHR $$S$CNT,<TYPE> 


c 
—_é 


- 
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IF GT 3-$$$CNT 
Hee ; INVALID CHARACTER TYPE 
; i 3-$$SCNT 
*AACRO $$1vP 
[ASCII TYPE 
“END $3$h VP 
.1FF 
SSSFLG = SSSFLG!1 
TPASPSECT_KEY1 
SS$STMP = 


SSSKFG = 
-ASCII TYPE 


IF EQ 4-SSSCNT 3 
SSSAST = 0 3 
. IRPC peer. <TYPE> : 
IF IDN <$$$Y>,<*> : 
SSSAST = 1 3 
: + F 
IF Ne SSSAST 3 
- = 1 : 
~ENDC $ 
~ENDC 3 
-BYTE 255 3 


TPASPSECT KEYO 
«WORD S$SSTMP-S$SKEYTAB 


-MACRO $S$STYP 
-BYTE SSSKEY 
-ENDM = $SSTYP 


SSSKEY = SSSKEY+1 
GE 


a SSSKEY—TPAS MAXKEY 

. ERROR 3; TPARSE = TOO MANY KEYWORDS 
~ENDC 

.ENDC 

o1FF 

IF EQ $S$SMOD-2 


SSSFLG = SSSFLG!8!1 
-MACRO S$SEXT 
-WORD OQ'TYPE-.-2 
-ENDM = $$SEXT 


SSSTYP 
~BYTE TPA$ SUBXPR&255 
NDM $S$STYP 


TPAMAR .MAR; 1 


% 
G = SSSFLG! 


-MACRO $S$S$TYP 
-BYTE TYPE&255 
-ENDM $$$TYP 


- ENDC 
~ENDC 


» RESTORE 
-ENDM $TRAN 


; FINISH STATE TABLE 

-MACRO SEND STATE 

» SAV 

SSSFLG = SSSFLG!4 
TPASMTRAN 

IF EQ SSSKFG 
TPASPSECT KEY1 
-BYTE 255 


SSSFLG = -1 


.ENDM SEND. STATE 

; OUTPUT LAST TRANSITION ENTRY 

.MACRO TPASMTRAN 
TPASPSECT_STATE 


IF EQ SSSFLG+1 
SSSFLG = 0 

»MEXIT 

- ENDC 

SSSTYP 

~BYTE  $$$FLG8255 


IF NE Sri Se 
“Brre RESSFLG/S5eobo$ 


IF NE SSSFLG8&8 
SSSEXT 
-ENDC 


IF NE $$SFLG&256 
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uT 
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-ENDM 


SSSPRM 
bc 


if 
SSSACT 
-ENDC 


SSSFLG 


NE 


NE 


NE 


= 0 


TPASMTRAN 


«LIST 


S$SFLG8128 


SSSFLGR64 


$SSFLGB32 


SSSFLG816 
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Sontag AND PROPRIETAR 


